gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_SiteConfig.asp
<!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119 81234844 81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================
dim Action
Action=Trim(Request.Form("Action"))
%>
<html>
<head>
<title>网站信息配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Title="网 站 信 息 配 置"
Link="<a href='?load=1#1' class='black'>基本信息设置</a> | <a href='?load=1#2' class='black' onClick='return showpiclayer(0);'>图片水印配置</a> | <a href='?load=1#3' class='black' onClick='return showotherlayer(0);'>网站其他配置</a> | <a href='Admin_MailSetup.asp' class='black'>邮件信息设置</a>"
Response.Write "<a name='top'></a>"
Behind.WriteHtmlHead
Behind.WriteHtmlTop Title,Link
if Action="SaveConfig" then
call SaveConfig()
else
call ShowConfig()
end if
if FoundErr=True then
Behind.WriteErrMsg(ErrMsg)
end if
Sub ShowConfig()
If Not Conn.Execute("Select * from Nt_AdImage Where AdId=4").Eof Then
AdImage4=Conn.Execute("Select adFile from Nt_AdImage Where AdId=4")(0)
End If
If Not Conn.Execute("Select * from Nt_AdImage Where AdId=5").Eof Then
AdImage5=Conn.Execute("Select adFile from Nt_AdImage Where AdId=5")(0)
End If
%>
<script language="javascript" src="Inc/Pop.js"></script>
<a name="#1"></a>
<script language="JavaScript" type="text/javascript">
function showpiclayer(tag){
if(tag){
picdiv.style.display = "none";
}else{
picdiv.style.display = "";
}
}
function showotherlayer(tagid){
if(tagid){
otherdiv.style.display = "none";
}else{
otherdiv.style.display = "";
}
}
function addOicq(){
var tbl = document.getElementById("tblOicq");
var oRow = tbl.insertRow(),oCell = null;
oCell = oRow.insertCell();
oCell.innerHTML = '用途：<input name="UserOicq" type="text" id="UserOicq" size="10">';
oCell = oRow.insertCell();
oCell.innerHTML = '号码：<input name="UserOicq" type="text" id="UserOicq" size="10">';
oCell = oRow.insertCell();
oCell.innerHTML = '<select name="UserOicq" id="UserOicq"><option value="1">显示</option><option value="0">不显示</option></select>';
oCell = oRow.insertCell();
oCell.innerHTML = '<input type="button" value="删除" onclick="javascript:delOicq('+(tbl.rows.length-1)+');">';
}
function delOicq(index){
var tbl = document.getElementById("tblOicq");
var oRow = tbl.rows[index];
for(var i=0;i<oRow.cells.length;i++) oRow.cells[i].innerHTML = "";
}
</script>
<script language="javascript" src="Inc/Region.js"></script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<form method="POST" action="Admin_SiteConfig.asp" name="form1">
<tr class="topbg">
<td colspan="2" class="tdbg1"><strong>基本信息设置</strong>[<a href="#top">顶部</a>]</td>
</tr>
<tr class="tdbg">
<td><b>网站备案号：</b></td>
<td>
<input name="SiteNumber" type="text" id="SiteNumber" value="<%=Config.SiteNumber%>" size="40" maxlength="50">
[凡是一级域名都要备案,备案请 <a href="http://www.miibeian.gov.cn/" target="_blank">点击这里</a>]
</td>
</tr>
<tr class="tdbg">
<td width="25%"><strong>网站名称：</strong></td>
<td> <input name="SiteName" type="text" id="SiteName" value="<%=Config.SiteName%>" size="40" maxlength="50">
</td>
</tr>
<tr class="tdbg">
<td><strong>网站地址：</strong></td>
<td> <input name="SiteUrl" type="text" value="<%=Config.SiteUrl%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td><b>单位名称：</b></td>
<td>
<input name="UserUnit" type="text" id="UserUnit" value="<%=Config.UserUnit%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td><b>联系人：</b></td>
<td>
<input name="UserName" type="text" id="UserName" value="<%=Config.UserName%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td><b>身份证号码：</b></td>
<td>
<input name="UserCard" type="text" id="UserCard" value="<%=Config.UserCard%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td><b>联系地址：</b><input type="hidden" name="UserAdd0"></td>
<td>国家
<select name="UserAdd1" onChange="ChangeOptions(3);ChangeOptions(4);">
<option value="" selected>--请选择--</option>
<script language="javascript">
InitCountry(form1.UserAdd1, "<%=Config.UserAdd(1)%>") ;
</script>
</select>
州/省
<select name="UserAdd2" onChange="ChangeOptions(4);">
<option value="" selected>--请选择--</option>
</select>
城市
<select name="UserAdd3" onChange="UpdateOptions();">
<option value="" selected>--请选择--</option>
</select>
<br>
<input name="UserAdd4" type="text" value="<%=Config.UserAdd(4)%>" size="50">
<select name="UserAdd5">
<option value="1"<%=Selected(Config.UserAdd(5),"1")%>>显示</option>
<option value="0"<%=Selected(Config.UserAdd(5),"0")%>>不显示</option>
</select>
<script language="javascript">
ChangeOptions(3);
SetSelected(3,"<%=Config.UserAdd(2)%>");
ChangeOptions(4);
SetSelected(4,"<%=Config.UserAdd(3)%>");
UpdateOptions();
</script>
</td>
</tr>
<tr class="tdbg">
<td><strong>联系信箱：</strong></td>
<td> <input name="UserEmail" type="text" id="UserEmail" value="<%=Config.UserEmail(0)%>" size="50" maxlength="100">
<select name="UserEmail" id="UserEmail">
<option value="1"<%=Selected(Config.UserEmail(1),"1")%>>显示</option>
<option value="0"<%=Selected(Config.UserEmail(1),"0")%>>不显示</option>
</select>
</td>
</tr>
<tr class="tdbg">
<td><strong>联系电话：</strong></td>
<td>
区号<input name="UserPhone" type="text" id="UserPhone" value="<%=Config.UserPhone(0)%>" size="4" maxlength="4">
号码<input name="UserPhone" type="text" id="UserPhone" value="<%=Config.UserPhone(1)%>" size="7" maxlength="8">
<select name="UserPhone" id="UserPhone">
<option value="1"<%=Selected(Config.UserPhone(2),"1")%>>显示</option>
<option value="0"<%=Selected(Config.UserPhone(2),"0")%>>不显示</option>
</select>
手机<input name="UserPhone" type="text" id="UserPhone" value="<%=Config.UserPhone(3)%>" size="10" maxlength="11">
<select name="UserPhone" id="UserPhone">
<option value="1"<%=Selected(Config.UserPhone(4),"1")%>>显示</option>
<option value="0"<%=Selected(Config.UserPhone(4),"0")%>>不显示</option>
</select>
</td>
</tr>
<tr class="tdbg">
<td><b>联系ＱＱ：</b><a href="javascript:addOicq();" class="red">添加更多</a></td>
<td>
<table border="0" cellspacing="0" cellpadding="3" id="tblOicq">
<%
For m = 0 To Ubound(Config.UserOicq) Step 3
%>
<tr>
<td>用途：<input name="UserOicq" type="text" size="10" value="<%=Config.UserOicq(m+0)%>"></td>
<td>号码：<input name="UserOicq" type="text" size="10" value="<%=Config.UserOicq(m+1)%>"></td>
<td>
<select name="UserOicq">
<option value="1"<%=Selected(Config.UserOicq(m+2),"1")%>>显示</option>
<option value="0"<%=Selected(Config.UserOicq(m+2),"0")%>>不显示</option>
</select>
</td>
<td><input type="button" value="删除" onClick="javascript:delOicq(<%=m\3%>);"></td>
</tr>
<%
Next
%>
</table>
</td>
</tr>
<tr class="tdbg">
<td><strong>网站标题:</strong></td>
<td>
<input name="SiteTitle" type="text" id="SiteTitle" value="<%=Config.SiteTitle%>" size="56" maxlength="200">
(200字以内)
</td>
</tr>
<tr class="tdbg">
<td><strong>网站描述:</strong></td>
<td>
<input name="SiteDesc" type="text" id="SiteDesc" value="<%=Config.SiteDesc%>" size="56" maxlength="200">
(200字以内)
</td>
</tr>
<tr class="tdbg">
<td><strong>网站关键字：</strong></td>
<td>
<input name="SiteKeys" type="text" id="SiteKeys" value="<%=Config.SiteKeys%>" size="56" maxlength="100">
(100字以内) </td>
</tr>
<tr class="tdbg">
<td><strong>上传网站Logo：</strong><br>
请上传<%=Config.Settings(35)&"*"&Config.Settings(36)%>的图片</td>
<td><iframe src="Upload.asp?UpType=adImage4&adFile=<%=adImage4%>" frameborder=0 scrolling=no width="260" height="24"></iframe>
<input name="adImage4" id="adImage4" type="hidden" value="<%=adImage4%>">
</td>
</tr>
<tr class="tdbg">
<td><strong>上传友情链接Logo：</strong><br>
请上传88*31的图片
<br>
</td>
<td><iframe src="Upload.asp?UpType=adImage5&adFile=<%=adImage5%>" frameborder=0 scrolling=no width="260" height="24"></iframe>
<input name="adImage5" id="adImage5" type="hidden" value="<%=adImage5%>">
</td>
</tr>
<tr class="tdbg">
<td><b>网站默认风格设置：</b></td>
<td>
<select name="SiteStyle" id="SiteStyle" style="width: 200px;">
<%
Dim Css
Set Css = Application(Config.CacheName & "_csslist").documentElement.SelectNodes("css")
If Not Css Is Nothing Then
For Each Node In Css
%>
<option<%=Selected(Config.SiteStyle,Node.getAttribute("id"))%>><%=Node.getAttribute("type")%></option>
<%
Next
End If
%>
</select>
</td>
</tr>
<tr class="tdbg">
<td><b>网站默认语言设置：</b></td>
<td>
<select name="SiteLang" id="SiteLang" style="width: 200px;">
<option<%=Selected(Config.SiteLang,"0")%>>简体中文</option>
<option<%=Selected(Config.SiteLang,"1")%>>繁体中文</option>
</select>
</td>
</tr>
<tr class="topbg">
<td colspan="2" class="tdbg1"><strong><a name="#2"></a>图片水印设置</strong>[<a href="#top">顶部</a>][<a href="#2" onClick="return showpiclayer(0);">展开</a>][<a href="#2" onClick="return showpiclayer(1);">关闭</a>]</td>
</tr><tr><td colspan="2"><table id="picdiv" border="0" cellspacing="1" cellpadding="0" width="100%" style="display: none; ">
<%
Dim Jpeg
Jpeg = Netout.ObjectInstalled("Persits.Jpeg")
%>
<input name="WaterMark0" type="hidden" value="<%If Jpeg Then%>1<%Else%>0<%End If%>">
<tr class="tdbg">
<td width="25%"><strong>是否允许打水印：</strong></td>
<td>
<input name="WaterMark1" id="WaterMark1_0" type="radio"<%=Checked(Config.WaterMark(1),"1")%>>是
<input name="WaterMark1" id="WaterMark1_1" type="radio"<%=Checked(Config.WaterMark(1),"0")%>>否
</td>
</tr>
<tr class="tdbg">
<td><strong>网站水印类型：</strong></td>
<td>
<input name="WaterMark2" onClick="javascript:ShowCanvas(1);" type="radio"<%=Checked(Config.WaterMark(2),"1")%>>图片
<input name="WaterMark2" onClick="javascript:ShowCanvas(0);" type="radio"<%=Checked(Config.WaterMark(2),"0")%>>文字
<!--
<input name="WaterMark2" onClick="javascript:ShowCanvas(2);" type="radio"<%=Checked(Config.WaterMark(2),"2")%>>图片销售专用水印 <a href="http://www.maitu.net/canvas.mt" target="_blank"><img src="images/help.gif" border="0" align="absmiddle"></a>
-->
</td>
</tr>
<tbody id="CanvasSelf">
<tr class="tdbg">
<td><strong><span id="IsText">文字颜色</span><span id="IsJpeg">图片透明色</span>：</strong></td>
<td><input name="WaterMark3" type="text" size="8" maxlength="7" value="<%=Config.WaterMark(3)%>" style="background-color:<%=Config.WaterMark(3)%>;" readonly><input type="button" value="选择颜色" onClick="SetColor();"></td>
</tr>
<tr class="tdbg">
<td><strong>水印区域宽度：</strong></td>
<td><input name="WaterMark4" type="text" value="<%=Config.WaterMark(4)%>"><span id="IsJpeg">自动根据水印图片的大小请填为0</span></td>
</tr>
<tr class="tdbg">
<td><strong>水印区域高度：</strong></td>
<td><input name="WaterMark5" type="text" value="<%=Config.WaterMark(5)%>"><span id="IsJpeg">自动根据水印图片的大小请填为0</span></td>
</tr>
<tr class="tdbg">
<td><strong>水印位置：</strong></td>
<td>
<select name="WaterMark6">
<option<%=Selected(Config.WaterMark(6),"1")%>>左上</option>
<option<%=Selected(Config.WaterMark(6),"2")%>>上中</option>
<option<%=Selected(Config.WaterMark(6),"3")%>>右上</option>
<option<%=Selected(Config.WaterMark(6),"4")%>>左中</option>
<option<%=Selected(Config.WaterMark(6),"5")%>>中中</option>
<option<%=Selected(Config.WaterMark(6),"6")%>>右中</option>
<option<%=Selected(Config.WaterMark(6),"7")%>>左下</option>
<option<%=Selected(Config.WaterMark(6),"8")%>>中下</option>
<option<%=Selected(Config.WaterMark(6),"9")%>>右下</option>
</select>
</td>
</tr>
<tr class="tdbg" id="IsText">
<td><strong>水印文字：</strong></td>
<td><input name="WaterMark7" type="text" value="<%=Config.WaterMark(7)%>"></td>
</tr>
<tr class="tdbg" id="IsJpeg">
<td><strong>水印图片：</strong><br>
不修改请留空,<br>上传成功后请<font color="#FF0000">保存设置</font>！</td>
<td><iframe ID="UploadJpeg" src="Upload.asp?UpType=JpegFile" frameborder=0 scrolling=no width="260" height="40"></iframe>
<input name="WaterMark8" type="hidden" value="<%=Config.WaterMark(8)%>"></td>
</tr>
<tr class="tdbg" id="IsText">
<td><strong>文字字体：</strong></td>
<td>
<select name="WaterMark9">
<option<%=Selected(Config.WaterMark(9),"Impact")%>>Impact</option>
<option<%=Selected(Config.WaterMark(9),"monospace")%>>Monospace</option>
<option<%=Selected(Config.WaterMark(9),"Webdings")%>>Webdings</option>
<option<%=Selected(Config.WaterMark(9),"Wingdings")%>>Wingdings</option>
<option<%=Selected(Config.WaterMark(9),"Arial")%>>Arial</option>
<option<%=Selected(Config.WaterMark(9),"Courier New")%>>Courier New</option>
<option<%=Selected(Config.WaterMark(9),"宋体")%>>宋体</option>
<option<%=Selected(Config.WaterMark(9),"华文彩云")%>>华文彩云</option>
<option<%=Selected(Config.WaterMark(9),"隶书")%>>隶书</option>
<option<%=Selected(Config.WaterMark(9),"黑体")%>>黑体</option>
</select>
</td>
</tr>
<tr class="tdbg" id="IsText">
<td><strong>文字大小：</strong></td>
<td>
<select name="WaterMark10">
<%For i = 6 to 36 Step 2%>
<option<%=Selected(Config.WaterMark(10),i)%>><%=i%></option>
<%Next%>
<option<%=Selected(Config.WaterMark(10),"48")%>>48</option>
<option<%=Selected(Config.WaterMark(10),"72")%>>72</option>
</select>
</td>
</tr>
<tr class="tdbg" id="IsText">
<td><strong>是否粗体：</strong></td>
<td>
<input name="WaterMark11" type="radio"<%=Checked(Config.WaterMark(11),"1")%>>是
<input name="WaterMark11" type="radio"<%=Checked(Config.WaterMark(11),"0")%>>否
</td>
</tr>
<tr class="tdbg" id="IsJpeg">
<td><strong>图片透明度：</strong><br>数值越大，表示越不透明</td>
<td>
<select name="WaterMark12">
<option<%=Selected(Config.WaterMark(12),"0")%>>全部透明</option>
<option<%=Selected(Config.WaterMark(12),"0.1")%>>10%</option>
<option<%=Selected(Config.WaterMark(12),"0.2")%>>20%</option>
<option<%=Selected(Config.WaterMark(12),"0.3")%>>30%</option>
<option<%=Selected(Config.WaterMark(12),"0.4")%>>40%</option>
<option<%=Selected(Config.WaterMark(12),"0.5")%>>50%</option>
<option<%=Selected(Config.WaterMark(12),"0.6")%>>60%</option>
<option<%=Selected(Config.WaterMark(12),"0.7")%>>70%</option>
<option<%=Selected(Config.WaterMark(12),"0.8")%>>80%</option>
<option<%=Selected(Config.WaterMark(12),"0.9")%>>90%</option>
<option<%=Selected(Config.WaterMark(12),"1")%>>不透明</option>
</select>
</td>
</tr>
</tbody>
<tbody id="CanvasMaitu">
<tr class="tdbg">
<td><strong>您的水印Logo图片：</strong>(200*20像素)</td>
<td><iframe ID="UploadImage" src="Upload.asp?UpType=SiteJpeg&adFile=<%=Config.SiteJpeg%>" frameborder=0 scrolling=no width="260" height="22"></iframe>
<input name="SiteJpeg" id="SiteJpeg" type="hidden" value="<%=Config.SiteJpeg%>"></td>
</tr>
</tbody>
</table>
</td></tr>
<tr class="topbg">
<td colspan="2" class="tdbg1"><strong> <a name="#3"></a>网站其他配置</strong>[<a href="#top">顶部</a>][<a href="#3" onClick="return showotherlayer(0);">展开</a>][<a href="#3" onClick="return showotherlayer(1);">关闭</a>]</td>
</tr><tr><td colspan="2"><table id="otherdiv" border="0" cellspacing="1" cellpadding="0" width="100%" style="display: none;">
<tr class="tdbg">
<td><strong>原图上传目录名：</strong><br>请不要包含“/”符号</td>
<td>
<input name="ImagePath0" type="text" value="<%=Replace(Config.ImagePath(0),"/","")%>" maxlength="20">
<input name="OldPath0" type="hidden" value="<%=Replace(Config.ImagePath(0),"/","")%>">
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>中图上传目录名：</strong><br>请不要包含“/”符号</td>
<td>
<input name="ImagePath1" type="text" value="<%=Replace(Config.ImagePath(1),"/","")%>" maxlength="20">
<input name="OldPath1" type="hidden" value="<%=Replace(Config.ImagePath(1),"/","")%>">
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>缩略图上传目录名：</strong><br>请不要包含“/”符号</td>
<td>
<input name="ImagePath2" type="text" value="<%=Replace(Config.ImagePath(2),"/","")%>" maxlength="20">
<input name="OldPath2" type="hidden" value="<%=Replace(Config.ImagePath(2),"/","")%>">
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td width="25%"><strong>是否上传原图：</strong></td>
<td>
<input name="Setting0" type="radio"<%=Checked(Config.Settings(0),"1")%>>是
<input name="Setting0" type="radio"<%=Checked(Config.Settings(0),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg" style="display: none;">
<td><strong>首页显示专题：</strong></td>
<td>
<input name="Setting1" type="radio"<%=Checked(Config.Settings(1),"1")%>>是
<input name="Setting1" type="radio"<%=Checked(Config.Settings(1),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg" style="display: none;">
<td><strong>首页显示分类列表和友情连接：</strong></td>
<td>
<input name="Setting2" type="radio"<%=Checked(Config.Settings(2),"1")%>>是
<input name="Setting2" type="radio"<%=Checked(Config.Settings(2),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>上传图片属性限制：</strong></td>
<td>
长边最大：<input name="Setting3" type="text" size=6 value="<%=Config.Settings(3)%>">像素，文件最大<input name="Setting4" type="text" size=6 value="<%=Config.Settings(4)%>">KB
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg" style="display:none">
<td><strong>缩略图属性限制：</strong></td>
<td>
宽度最大<input name="Setting5" type="text" size=6 value="<%=Config.Settings(5)%>">像素，
高度最大<input name="Setting6" type="text" size=6 value="<%=Config.Settings(6)%>">像素
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><b>网站Logo图片大小：</b></td>
<td>宽度
<input name="Setting35" type="text" id="Setting35" value="<%=Config.Settings(35)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=297;">
像素， 高度
<input name="Setting36" type="text" id="Setting36" value="<%=Config.Settings(36)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=60;">
像素</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><b>广告设置一图片大小：</b></td>
<td>宽度
<input name="Setting37" type="text" id="Setting37" value="<%=Config.Settings(37)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=468;">
像素， 高度
<input name="Setting38" type="text" id="Setting38" value="<%=Config.Settings(38)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=60;">
像素
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><b>广告设置二图片大小：</b></td>
<td>宽度
<input name="Setting39" type="text" id="Setting39" value="<%=Config.Settings(39)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=760;">
像素， 高度
<input name="Setting40" type="text" id="Setting40" value="<%=Config.Settings(40)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=60;">
像素
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><b>广告设置三图片大小：</b></td>
<td>宽度
<input name="Setting41" type="text" id="Setting41" value="<%=Config.Settings(41)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=760;">
像素， 高度
<input name="Setting42" type="text" id="Setting42" value="<%=Config.Settings(42)%>" size=6 onpropertychange="javascript:if(isNaN(this.value)) this.value=60;">
像素
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>允许新用户注册：</strong></td>
<td>
<input type="radio" name="Setting7"<%=Checked(Config.Settings(7),"1")%>>是
<input type="radio" name="Setting7"<%=Checked(Config.Settings(7),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>浏览图片时显示左栏：</strong></td>
<td>
<input name="Setting8" onClick="RowCol.style.display='none';" type="radio"<%=Checked(Config.Settings(8),"1")%>>是
<input name="Setting8" onClick="RowCol.style.display='';" type="radio"<%=Checked(Config.Settings(8),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg" id="RowCol"<%IF Config.Settings(8)="1" Then Response.Write " style='display: none;'"%>>
<td><strong>每页显示行列数：</strong></td>
<td>
<select name="Setting9">
<%For i = 3 to 8%>
<option<%=Selected(Config.Settings(9),i)%>><%=i%></option>
<%Next%>
</select>行
<select name="Setting10">
<option<%=Selected(Config.Settings(10),"3")%>>3</option>
<option<%=Selected(Config.Settings(10),"4")%>>4</option>
<option<%=Selected(Config.Settings(10),"5")%>>5</option>
</select>列
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>以组图方式浏览：</strong></td>
<td>
<input onClick="showPrevNext.style.display='none';" name="Setting11" type="radio"<%=Checked(Config.Settings(11),"1")%>>是
<input onClick="showPrevNext.style.display='';" name="Setting11" type="radio"<%=Checked(Config.Settings(11),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr id="showPrevNext" class="tdbg"<%IF Config.Settings(11)="1" Then Response.Write(" style='display:none;'")%>>
<td><strong>大图显示方式：</strong></td>
<td>
<select name="Setting12">
<option<%=Selected(Config.Settings(12),"0")%>>全部显示</option>
<option<%=Selected(Config.Settings(12),"1")%>>逐张显示</option>
</select>
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>图片说明跟随鼠标：</strong></td>
<td>
<input name="Setting13" type="radio"<%=Checked(Config.Settings(13),"1")%>>是
<input name="Setting13" type="radio"<%=Checked(Config.Settings(13),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>默认显示图片信息：</strong></td>
<td>
<input name="Setting31" type="radio"<%=Checked(Config.Settings(31),"1")%>>是
<input name="Setting31" type="radio"<%=Checked(Config.Settings(31),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>禁止鼠标右键：</strong></td>
<td>
<input name="Setting14" type="radio"<%=Checked(Config.Settings(14),"1")%>>是
<input name="Setting14" type="radio"<%=Checked(Config.Settings(14),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>开启图片防盗链功能：</strong></td>
<td>
<input name="Setting18" type="radio"<%=Checked(Config.Settings(18),"1")%>>是
<input name="Setting18" type="radio"<%=Checked(Config.Settings(18),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>精华图片标准：</strong></td>
<td>
图片总分：<input name="Setting15" type="text" size="6" value="<%=Config.Settings(15)%>">
平 均 分：<input name="Setting16" type="text" size="6" value="<%=Config.Settings(16)%>">
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>分类菜单每页显示数：</strong></td>
<td>
<input name="Setting17" type="text" size="6" value="<%=Config.Settings(17)%>">
</td>
<td align="center"><a href="javascript:alert('当您的分类比较多，一行不能全部显示的时候，请调整这个参数。');" class="black">注释</a></td>
</tr>
<tr class="tdbg">
<td><strong>允许所有人查看会员资料：</strong></td>
<td>
<input name="Setting19" type="radio"<%=Checked(Config.Settings(19),"1")%>>是
<input name="Setting19" type="radio"<%=Checked(Config.Settings(19),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>会员列表页面显示方式：</strong></td>
<td>
<input name="Setting32" type="radio"<%=Checked(Config.Settings(32),"1")%>>带联系方式
<input name="Setting32" type="radio"<%=Checked(Config.Settings(32),"0")%>>只显示姓名
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>图库首页最新作品显示：</strong></td>
<td>
<select name="Setting20">
<%For i = 3 to 12%>
<option<%=Selected(Config.Settings(20),i)%>><%=i%>组</option>
<%Next%>
</select>
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>图库首页推荐图片显示：</strong></td>
<td>
<select name="Setting21">
<%For i = 3 to 12%>
<option<%=Selected(Config.Settings(21),i)%>><%=i%>张</option>
<%Next%>
</select>
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg" style="display: none;">
<td><strong>最新、推荐作品每行显示数：</strong></td>
<td>
<select name="Setting22">
<option<%=Selected(Config.Settings(22),"3")%>>3张</option>
<option<%=Selected(Config.Settings(22),"4")%>>4张</option>
</select>
</td>
<td align="center"> </td>
</tr>
<input type="hidden" name="Setting23" value="<%=Config.Settings(23)%>">
<input type="hidden" name="Setting24" value="<%=Config.Settings(24)%>">
<input type="hidden" name="Setting25" value="<%=Config.Settings(25)%>">
<input type="hidden" name="Setting26" value="<%=Config.Settings(26)%>">
<input type="hidden" name="Setting27" value="<%=Config.Settings(27)%>">
<input type="hidden" name="Setting28" value="<%=Config.Settings(28)%>">
<input type="hidden" name="Setting29" value="<%=Config.Settings(29)%>">
<%
If Not Purchase Is Nothing Then
%>
<tr class="tdbg">
<td><strong>是否按原始文件名下载图片：</strong></td>
<td>
<input name="Setting30" type="radio"<%=Checked(Config.Settings(30),"1")%>>是
<input name="Setting30" type="radio"<%=Checked(Config.Settings(30),"0")%>>否
</td>
<td align="center"> </td>
</tr>
<tr class="tdbg">
<td><strong>下载同一图片扣款间隔时间：</strong></td>
<td>
<input name="Setting34" type="text" size="6" value="<%=Config.Settings(34)%>" onpropertychange="javascript:if(isNaN(this.value)) this.value='0';">小时
</td>
<td align="center"> </td>
</tr>
<%
Else
%>
<input type="hidden" name="Setting30" value="<%=Config.Settings(30)%>">
<input type="hidden" name="Setting34" value="<%=Config.Settings(34)%>">
<%
End If
%>
<input type="hidden" name="Setting33" value="1">
<tr class="tdbg" style="display: none;">
<td><strong>文章栏目名称：</strong></td>
<td> <input name="ThemeTitle" type="text" value="<%=Config.ThemeTitle%>" size="20" maxlength="255">
</td>
<td align="center"> </td>
</tr>
</table>
</td></tr>
<tr class="tdbg">
<td height="40"> </td>
<td height="40">
<input name="Action" type="hidden" id="Action" value="SaveConfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 ">
</td>
</tr>
</form>
<script language="javascript">
function ShowCanvas(type){
if(type==2){
document.getElementById("CanvasMaitu").style.display = "";
document.getElementById("CanvasSelf").style.display = "none";
document.getElementById("WaterMark1_0").checked = true;
}else{
document.getElementById("CanvasMaitu").style.display = "none";
document.getElementById("CanvasSelf").style.display = "";
if(type){
var obj=eval("IsJpeg");
for(i=0;i<obj.length;i++) obj[i].style.display='';
obj=eval("IsText");
for(i=0;i<obj.length;i++) obj[i].style.display='none';
}else{
var obj=eval("IsJpeg");
for(i=0;i<obj.length;i++) obj[i].style.display='none';
obj=eval("IsText");
for(i=0;i<obj.length;i++) obj[i].style.display='';
}
}
}
ShowCanvas(<%=Config.WaterMark(2)%>);
function SetColor(){
var arr = showModalDialog("SelColor.htm", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0; help:0");
if (arr != null){
document.all.WaterMark3.value=arr;
document.all.WaterMark3.style.backgroundColor = arr;
}
}
</script>
</table>
<%
End Sub
Behind.WriteHtmlEnd
set Netout=nothing
Sub SaveConfig()
Dim Setting,key
Set Setting = Server.CreateObject("Scripting.Dictionary")
For Each key In Request.Form()
Setting.Add key,Server.HTMLEncode(Replace(Trim(Request.Form(key)&"")," ",""))
Next
If Setting("SiteName") = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>网站名称不能为空! </li>"
End If
If Setting("SiteUrl") = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>网站地址不能为空! </li>"
End If
If Split(Setting("UserEmail"),",")(0) = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>联系信箱不能为空! </li>"
End If
If Setting("ThemeTitle") = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>文章栏目名称不能为空! </li>"
End If
Dim ImagePath(3)
ImagePath(0) = Setting("ImagePath0")
ImagePath(1) = Setting("ImagePath1")
ImagePath(2) = Setting("ImagePath2")
If ImagePath(0) = "" Or ImagePath(1) = "" Or ImagePath(2) = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>三个上传目录名不能为空! </li>"
End If
If ImagePath(0)=ImagePath(1) Or ImagePath(1)=ImagePath(2) Or ImagePath(2)=ImagePath(0) Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>三个上传目录名不能相同! </li>"
End If
If FoundErr = True Then Exit Sub
UpdateImage 4,Setting("adImage4"),Setting("SiteUrl")
UpdateImage 5,Setting("adImage5"),Setting("SiteUrl")
Response.Cookies(CookieName)("StyleId") = Setting("SiteStyle")
Dim UserAdd:UserAdd = ""
For i = 0 To 5
UserAdd = UserAdd & Setting("UserAdd"&i) & ","
Next
Setting("UserAdd") = Left(UserAdd,Len(UserAdd)-1)
Dim WaterMark:WaterMark = ""
For i = 0 To 12
WaterMark = WaterMark & Setting("WaterMark"&i) & ","
Next
Setting("WaterMark") = Left(WaterMark,Len(WaterMark)-1)
For i = 0 To 2
ImagePath(i) = MovePath(Setting,i)
Next
Setting("ImagePath") = ImagePath(0)&","&ImagePath(1)&","&ImagePath(2)
Dim intLong
Dim arrDefault
arrDefault = Array(297,60,468,60,760,60,760,60)
For i = 35 To 42
Setting("Setting"&i) = Netout.CheckNumeric(Setting("Setting"&i))
If Setting("Setting"&i) = 0 Then
Setting("Setting"&i) = arrDefault(i-35)
End If
Next
Dim Settings:Settings = ""
For i = 0 To 42
Settings = Settings & Setting("Setting"&i) & ","
Next
Setting("Settings") = Left(Settings,Len(Settings)-1)
Dim Rs
Set Rs = Server.CreateObject("adodb.recordset")
Rs.Open "Select * From Nt_Config Where SetupID=1",Conn,1,3
Rs("SiteNumber") = Setting("SiteNumber")
Rs("SiteName") = Setting("SiteName")
Rs("SiteUrl") = Setting("SiteUrl")
Rs("SiteStyle") = Setting("SiteStyle")
Rs("SiteTitle") = Setting("SiteTitle")
Rs("SiteDesc") = Setting("SiteDesc")
Rs("SiteKeys") = Setting("SiteKeys")
Rs("SiteLang") = Setting("SiteLang")
Rs("SiteJpeg") = Setting("SiteJpeg")
Rs("UserUnit") = Setting("UserUnit")
Rs("UserName") = Setting("UserName")
Rs("UserCard") = Setting("UserCard")
Rs("UserAdd") = Setting("UserAdd")
Rs("UserEmail") = Setting("UserEmail")
Rs("UserPhone") = Setting("UserPhone")
Rs("UserOicq") = Setting("UserOicq")
Rs("WaterMark") = Setting("WaterMark")
Rs("Settings") = Setting("Settings")
Rs("ImagePath") = Setting("ImagePath")
Rs("ThemeTitle") = Setting("ThemeTitle")
If Setting("WaterMark0") = "1" Then
Rs("UploadExt") = "jpg,gif,bmp,png,tif"
Else
Rs("UploadExt") = "jpg,gif,bmp,png"
End If
Rs.Update
Rs.Close
Set Rs = Nothing
Application.Lock()
Config.SetCache "LastTime",""
Application.UnLock()
Response.Write "<script>parent.left.location.href='Admin_Left.asp';</script>"
IF Setting("Setting27") = "1" Then
DataValue = Config.SystemUrl&"#$@#"&Setting("ImagePath")&"#$@#"&Setting("SiteName")&"#$@#"&Setting("SiteUrl")&"#$@#"
DataValue = DataValue & Setting("UserUnit")&"#$@#"&Setting("UserName")&"#$@#"&Setting("UserCard")&"#$@#"&Setting("UserEmail")&"#$@#"
DataValue = DataValue & Setting("UserPhone")&"#$@#"&Setting("UserOicq")&"#$@#"&Setting("Setting0")&"#$@#"&Config.SoftInfo(1)&"#$@#"&Config.SoftInfo(7)&"#$@#"&Setting("WaterMark2")
Netout.SendData "SiteInfo.asp",DataValue
End IF
Behind.WriteSuccessMsg "网站配置保存成功！","Admin_SiteConfig.asp"
End Sub
Function MovePath(dic,id)
Dim strPath,fso,InPath,strFilter
Set fso = Server.CreateObject("Scripting.FileSystemObject")
strPath = Replace(Replace(dic("ImagePath"&id),"\",""),":","")
strPath = Replace(Replace(Replace(strPath,"*",""),"?",""),Chr(34),"")
strPath = Replace(Replace(Replace(strPath,"|",""),"<",""),">","")
strFilter = "|data|face|images|inc|style|uploadfile|templates|"
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Select Case id
Case 0:strFilter = strFilter&dic("OldPath1")&"|"&dic("OldPath2")&"|"
Case 1:strFilter = strFilter&dic("OldPath0")&"|"&dic("OldPath2")&"|"
Case 2:strFilter = strFilter&dic("OldPath0")&"|"&dic("OldPath1")&"|"
End Select
If InStr(strFilter,Lcase("|"&strPath&"|"))>0 Then InPath = True Else InPath = False
If (Not InPath) And (Not fso.FolderExists(Server.MapPath(strPath))) Then
fso.MoveFolder Server.MapPath(dic("OldPath"&id)),Server.MapPath(strPath)
Else
strPath = dic("OldPath"&id)
End If
MovePath = strPath
Set fso = Nothing
End Function
Sub UpdateImage(adId,adFile,adLink)
Dim ads
Set ads = Server.CreateObject("Adodb.RecordSet")
ads.Open "select * From Nt_AdImage Where AdId="&adId,Conn,1,3
If ads.Eof Or ads.Bof Then
ads.AddNew
ads("adId") = adId
End If
ads("adFile") = adFile
ads("adLink") = adLink
ads("adShow") = 1
ads.Update
ads.Close
Set ads = Nothing
End Sub
%>